home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -in_the_mag- / emulation / -otherstuff / wzonka-lad / wzonka-lad-install < prev    next >
Text File  |  1997-12-01  |  8KB  |  410 lines
  1. ; $VER: Wzonka-Lad Installer Script 0.95 (12-Nov-97)
  2. ; Installer made by Lennart Johannesson
  3. ; For comments, bugs (yes, I know there's still a lot of them)
  4. ; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se
  5.  
  6.  
  7. ;Ask where to place the Wzonka-Lad directory
  8.  
  9. (message "\nWelcome to Wzonka-Lad Installer!\n-----------------------\n\nThis program will install\n Wzonka-Lad 0.95\n on your Amiga\n\n (c) Ville Helin 1996-1997\nvhelin@cc.hut.fi\n\n")
  10.  
  11. (welcome)
  12.  
  13. (complete 0)
  14.  
  15. (set @default-dest 
  16.     (askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
  17.             (help @askdir-help)
  18.             (default "Ram:")
  19.             (newpath)
  20.     )
  21. )
  22.  
  23. ;Create Wzonka-Lad directory
  24.  
  25. (complete 7)
  26.  
  27. (set target
  28.     (tackon @default-dest (cat "Wzonka-Lad")))
  29.  
  30. (makedir target
  31.      (prompt "Creating directory:\n\""target"\"")
  32.     (help @makedir-help)
  33. )
  34.  
  35. (copyfiles
  36.         (dest @default-dest)
  37.     (source "icons/install/Wzonka-Lad.info")
  38.         (files))
  39.  
  40. (set @default-dest (target))
  41.  
  42. ;Install the executables
  43.  
  44. (complete 14)
  45.  
  46. (copyfiles
  47.     (prompt "Where would you like me to put the executables?")
  48.     (help @copyfiles-help)
  49.     (source "Wzonka-Lad FULL")
  50.     (dest @default-dest)
  51.     (files)
  52.     (infos)
  53.     (confirm)
  54. )
  55.  
  56. (copyfiles
  57.         (dest @default-dest)
  58.     (source "Wzonka-Lad FAST")
  59.         (files)
  60. )
  61.  
  62. (copyfiles
  63.         (dest @default-dest)
  64.     (source "Wzonka-Lad.FULL")
  65.         (files)
  66. )
  67.  
  68. (copyfiles
  69.         (dest @default-dest)
  70.     (source "Wzonka-Lad.FAST")
  71.         (files)
  72. )
  73.  
  74. (copyfiles
  75.         (dest @default-dest)
  76.     (source "Palette Editor")
  77.         (files)
  78. )
  79.  
  80. (copyfiles
  81.         (dest @default-dest)
  82.     (source "icons/install/Wzonka-Lad FULL.info")
  83.         (files))
  84.  
  85. (copyfiles
  86.         (dest @default-dest)
  87.     (source "icons/install/Wzonka-Lad FAST.info")
  88.         (files))
  89.  
  90. (copyfiles
  91.         (dest @default-dest)
  92.     (source "icons/install/Palette Editor.info")
  93.         (files))
  94.  
  95. (set @default-dest (target))
  96.  
  97. ;Install the documents
  98.  
  99. (complete 21)
  100.  
  101. (copyfiles
  102.     (prompt "Would you like to install the documents?")
  103.     (help @copyfiles-help)
  104.     (source "Wzonka-Lad Guide")
  105.     (dest @default-dest)
  106.     (files)
  107.     (confirm)
  108. )
  109.  
  110. (copyfiles
  111.         (dest @default-dest)
  112.     (source "icons/install/Wzonka-Lad Guide.info")
  113.         (files))
  114.  
  115. (copyfiles
  116.         (dest @default-dest)
  117.     (source "Wzonka-Lad Spanish Guide")
  118.         (files))
  119.  
  120. (copyfiles
  121.         (dest @default-dest)
  122.     (source "icons/install/Wzonka-Lad Spanish Guide.info")
  123.         (files))
  124.  
  125. ;Install controlpad.library
  126.  
  127. (complete 35)
  128.  
  129. (set @default-dest "libs:")
  130.  
  131. (copylib
  132.     (prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
  133.     (help @copylib-help)
  134.     (source "libs/controlpad.library")
  135.     (dest @default-dest)
  136.     (confirm)
  137. )
  138.  
  139.  
  140. ;Install the fonts
  141.  
  142. (complete 42)
  143.  
  144. (set @default-dest "FONTS:")
  145.  
  146. (copyfiles
  147.     (prompt "And the fonts...\nWhere do I put them?")
  148.     (help @copyfiles-help)
  149.     (source "fonts/")
  150.     (dest @default-dest)
  151.     (all)
  152.     (confirm)
  153. )
  154.  
  155. ;Install the sample cartridge(s)
  156.  
  157. (complete 49)
  158.  
  159. (set @default-dest (target))
  160.  
  161. (set @default-dest
  162. (askdir    (prompt "Where would you like to store your cartridges?\n(A drawer called \"cartridges\" will be made!)")
  163.     (help @askdir-help)
  164.     (default @default-dest)
  165.     (newpath)
  166.     )
  167. )
  168.  
  169. (set @default-dest
  170.     (tackon @default-dest (cat "cartridges")))
  171.  
  172. (makedir @default-dest
  173.     (prompt "Creating directory...")
  174.     (help @makedir-help)
  175. )
  176.  
  177. (copyfiles
  178.     (prompt "Install the sample cartridge(s) to:\n")
  179.     (help @copyfiles-help)
  180.     (source "cartridges")
  181.     (dest @default-dest)
  182.     (confirm)
  183.     (all)
  184. )
  185.  
  186. ;Install the sample battery ram(s)
  187.  
  188. (complete 49)
  189.  
  190. (set @default-dest (target))
  191.  
  192. (set @default-dest
  193. (askdir    (prompt "Where would you like to store your battery ram files?\n(A drawer called \"battery_rams\" will be made!)")
  194.     (help @askdir-help)
  195.     (default @default-dest)
  196.     (newpath)
  197.     )
  198. )
  199.  
  200. (set @default-dest
  201.     (tackon @default-dest (cat "battery_rams")))
  202.  
  203. (makedir @default-dest
  204.     (prompt "Creating directory...")
  205.     (help @makedir-help)
  206. )
  207.  
  208. (copyfiles
  209.     (prompt "Install the sample battery ram file(s) to:\n")
  210.     (help @copyfiles-help)
  211.     (source "battery_rams")
  212.     (dest @default-dest)
  213.     (confirm)
  214.     (all)
  215. )
  216.  
  217. ;Install the sample prefs
  218.  
  219. (complete 56)
  220.  
  221. (set @default-dest (target))
  222.  
  223. (set @default-dest
  224. (askdir    (prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
  225.     (help @askdir-help)
  226.     (default @default-dest)
  227.     (newpath)
  228.     )
  229. )
  230.  
  231. (set @default-dest
  232.     (tackon @default-dest (cat "prefs")))
  233.  
  234. (makedir @default-dest
  235.     (prompt "Creating directory...")
  236.     (help @makedir-help)
  237. )
  238.  
  239. (copyfiles
  240.     (prompt "Install the sample prefs-file to:\n")
  241.     (help @copyfiles-help)
  242.     (source "prefs")
  243.     (dest @default-dest)
  244.     (confirm)
  245.     (all)
  246. )
  247.  
  248. ;Install the sample vgb colour files
  249.  
  250. (complete 63)
  251.  
  252. (set @default-dest (target))
  253.  
  254. (set @default-dest
  255. (askdir    (prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
  256.     (help @askdir-help)
  257.     (default @default-dest)
  258.     (newpath)
  259.     )
  260. )
  261.  
  262. (set @default-dest
  263.     (tackon @default-dest (cat "vgb_colour_schemes")))
  264.  
  265. (makedir @default-dest
  266.     (prompt "Creating directory...")
  267.     (help @makedir-help)
  268. )
  269.  
  270. (copyfiles
  271.     (prompt "Install the VGB (tm) example colour files to:\n")
  272.     (help @copyfiles-help)
  273.     (source "vgb_colour_schemes")
  274.     (dest @default-dest)
  275.     (confirm)
  276.     (all)
  277. )
  278.  
  279. ;Install the extra Icons
  280.  
  281. (complete 70)
  282.  
  283. (set @default-dest (target))
  284.  
  285. (set @default-dest
  286. (askdir    (prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
  287.     (help @askdir-help)
  288.     (default @default-dest)
  289.     (newpath)
  290.         )
  291.     )
  292.  
  293. (set @default-dest
  294.     (tackon @default-dest (cat "icons")))
  295.  
  296. (makedir @default-dest
  297.     (prompt "Creating directory...")
  298.     (help @makedir-help)
  299. )
  300.  
  301. (copyfiles
  302.     (prompt "Install the extra icons to:\n")
  303.     (help @copyfiles-help)
  304.     (source "icons")
  305.     (dest @default-dest)
  306.     (confirm)
  307.     (all)
  308. )
  309.  
  310. ;Install the tools directory
  311.  
  312. (complete 77)
  313.  
  314. (set @default-dest (target))
  315.  
  316. (set @default-dest
  317. (askdir    (prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
  318.     (help @askdir-help)
  319.     (default @default-dest)
  320.     (newpath)
  321.         )
  322.     )
  323.  
  324. (set @default-dest
  325.     (tackon @default-dest (cat "tools")))
  326.  
  327. (makedir @default-dest
  328.     (prompt "Creating directory...")
  329.     (help @makedir-help)
  330. )
  331.  
  332. (copyfiles
  333.     (prompt "Install the extra tools to:\n")
  334.     (help @copyfiles-help)
  335.     (source "tools")
  336.     (dest @default-dest)
  337.     (confirm)
  338.     (all)
  339. )
  340.  
  341. ;Install the gbs directory and an example gbs file
  342.  
  343. (complete 84)
  344.  
  345. (set @default-dest (target))
  346.  
  347. (set @default-dest
  348. (askdir    (prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
  349.     (help @askdir-help)
  350.     (default @default-dest)
  351.     (newpath)
  352.         )
  353.     )
  354.  
  355. (set @default-dest
  356.     (tackon @default-dest (cat "gbs")))
  357.  
  358. (makedir @default-dest
  359.     (prompt "Creating directory...")
  360.     (help @makedir-help)
  361. )
  362.  
  363. (copyfiles
  364.     (prompt "Install an gbs example file to:\n")
  365.     (help @copyfiles-help)
  366.     (source "gbs")
  367.     (dest @default-dest)
  368.     (confirm)
  369.     (all)
  370. )
  371.  
  372. ;Install the favourites directory and the favourite list
  373.  
  374. (complete 91)
  375.  
  376. (set @default-dest (target))
  377.  
  378. (set @default-dest
  379. (askdir    (prompt "And the favourites directory?\n(A drawer called \"favourites\" will be made!)")
  380.     (help @askdir-help)
  381.     (default @default-dest)
  382.     (newpath)
  383.         )
  384.     )
  385.  
  386. (set @default-dest
  387.     (tackon @default-dest (cat "favourites")))
  388.  
  389. (makedir @default-dest
  390.     (prompt "Creating directory...")
  391.     (help @makedir-help)
  392. )
  393.  
  394. (copyfiles
  395.     (prompt "Install an favourite.list example to:\n")
  396.     (help @copyfiles-help)
  397.     (source "favourites")
  398.     (dest @default-dest)
  399.     (confirm)
  400.     (all)
  401. )
  402.  
  403. ;Write out some copyright stuff
  404.  
  405. (complete 100)
  406.  
  407. (set @default-dest (target))
  408.  
  409. (message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1997\nvhelin@cc.hut.fi\n\n For comments about the installer mail to:\nLennart Johannesson\n95lenjo@ostrabo.uddevalla.se")
  410.